home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Telnet / Terminal 2.2 / Terminal Folder / Log into ComNet.s < prev    next >
Text File  |  1990-12-31  |  2KB  |  77 lines
  1. /*
  2.     Terminal 2.0
  3.     Script to dial and log into ComNet
  4.  
  5.     "Log into ComNet.s"
  6. */
  7.  
  8. int TIMEOUT = 1800;    /* 30 seconds */
  9.  
  10. /* ----- Send command and wait for reply ------------------------------- */
  11.  
  12. check(char *command, char *reply, int timeout)
  13. {
  14.     type(command);
  15.     return prompt(reply, timeout);
  16. }
  17.  
  18. /* ----- Wait for prompt and send command ------------------------------ */
  19.  
  20. answer(char *hint, char *command)
  21. {
  22.     int result;
  23.  
  24.     if (result = prompt(hint, TIMEOUT))
  25.         return result;    /* Timeout or cancel */
  26.     pause(30);            /* Don't type immediatly */
  27.     type(command);
  28.     return 0;
  29. }
  30.  
  31. /* ----- main program -------------------------------------------------- */
  32.  
  33. main()
  34. {
  35.     int go = 1;
  36.  
  37.     setup(
  38.         2,        /* 1200 baud */
  39.         1,        /* 8 data */
  40.         0,        /* no parity */
  41.         0,        /* 1 stop */
  42.         -1,        /* port: no change */
  43.         -1,        /* DTR: no change */
  44.         0);        /* Handshake: none */
  45.     type("AT\r");
  46.     pause(60);
  47.  
  48.     while (go) {
  49.         if (check("AT\r", "OK", 60))
  50.             break;
  51.         pause(30);
  52.         /*
  53.         if (check("ATS7=60S10=14S9=12\r", "OK", 60))
  54.             break;
  55.         */
  56.         pause(30);
  57.         if (check("ATDP22534\r", "CONNECT", TIMEOUT))    /* Dial */
  58.             break;
  59.         if (answer("Return", "\r"))                /* Wait for "Hit Return" */
  60.             break;
  61.         if (answer("<RETURN>", "\r"))            /* Select Graphics Style */
  62.             break;
  63.         if (answer("User", "2001604\r"))        /* Enter ID Number */
  64.             break;
  65.         if (answer("Password", "...\r"))        /* Enter password */
  66.             break;
  67.         go = 0;            /* Ok */
  68.     }
  69.     if (go) {        /* Timeout or cancel */
  70.         setdtr(0);    /* Negate DTR: modem hangs up */
  71.         pause(60);    /* Wait one second */
  72.         setdtr(1);    /* Assert DTR: now back in command mode */
  73.         beep();        /* 2 beeps if error */
  74.     }
  75.     beep();
  76. }
  77.